--migração do título em aberto
delete from ContaPagar

set identity_insert ContaPagar on 
insert into ContaPagar(
Codigo,
CodTipoConta,
NomeTipoConta,
DataMovimento,
DataVencimento,
CodFornecedor,
Valor, 
Parcela,
TotalParcela,
Observacao,
DataPagamento,
ValorPago,
DataHoraUltimaGravacao,
UsuarioUltimaGravacao,
CodPlanoContas, 
CodCentroCusto
)
select 
rec.Codigo_pag,
1,
'VENDA',
rec.DataMov_pag,
rec.Vencto_pag,
rec.Codigo_for,
rec.Valor_pag,
rec.Parcela_pag,
rec.TotalParc_pag,
rtrim(ltrim(substring(rec.Observ_pag,1,200))),
rec.DataPgto_pag,
rec.ValorPago_pag,
GETDATE(),
'MIGRAÇÃO',
rec.Codigo_plc,
rec.Codigo_cnc
from Dados_db..Pagar_tb as rec
where rec.DataPgto_pag is null;
set identity_insert ContaPagar off


update ContaPagar set CodEmp = 1